home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / glitch.exe / INI / RAW.INI < prev    next >
Encoding:
INI File  |  1997-04-07  |  6.4 KB  |  152 lines
  1. [script]
  2. n0=#op.capture off
  3. n1=raw 352:*:{
  4. n2=  if (* isin $parm7) { inc %capture 1 | echo 4 %op.scan.chan ½(GLiTCH)╗ %capture $+ . $parm6 $parm3 $+ @ $+ $parm4 is an IRCop. }
  5. n3=  .halt
  6. n4=}
  7. n5=raw 315:*:{
  8. n6=  if (%capture == 0) {
  9. n7=  echo 4 %op.scan.chan ½(GLiTCH)╗ No IRCops Detected on $active | set %op.capture Off | unset %capture | .disable #op.capture | .unset %op.scan.chan }
  10. n8=  else { echo 4 %op.scan.chan ½(GLiTCH)╗ Found %capture IRCop(s) on $active | set %op.capture Off | unset %capture | .unset %op.scan.chan | .disable #op.capture }
  11. n9=  .halt
  12. n10=}
  13. n11=#op.capture end
  14. n12=#search off
  15. n13=raw 352:*:{
  16. n14=  if (%search.string isin $parms) {
  17. n15=    inc %search.found 1
  18. n16=  echo 4 @Search_Results_For_ $+ %search.channel ½(GLiTCH)╗ %search.found $+ . Found : $parm6 $parm3 $+ @ $+ $parm4 : $parm9* }
  19. n17=  halt
  20. n18=}
  21. n19=raw 315:*:{
  22. n20=  if (%search.found == 0) {
  23. n21=  echo 4 @Search_Results_For_ $+ %search.channel ½(GLiTCH)╗ Found 0 with matching string | .disable #search | unset %search.* }
  24. n22=  else { echo 4 @Search_Results_For_ $+ %search.channel ½(GLiTCH)╗ Total Found : %search.found | .disable #search | unset %search.* }
  25. n23=  halt
  26. n24=}
  27. n25=#search end
  28. n26=#auto.join off
  29. n27=raw 352:*: {
  30. n28=  set %name $parm6 $+ ! $+ $parm3 $+ @ $+ $parm4
  31. n29=  if ($level(%name) == 5) {
  32. n30=  .auser 5 $parm6 }
  33. n31=  if ($level(%name) == 1,=99) {
  34. n32=  .auser 1,=99 $parm6 }
  35. n33=  if ($level(%name) == 2) {
  36. n34=  .auser 2 $parm6 }
  37. n35=  if ($level(%name) == 3) {
  38. n36=  .auser 3 $parm6 }
  39. n37=  if ($level(%name) == 4) {
  40. n38=  .auser 4 $parm6 }
  41. n39=  halt
  42. n40=}
  43. n41=raw 315:*: {
  44. n42=  .disable #auto.join
  45. n43=  unset %name
  46. n44=  halt
  47. n45=}
  48. n46=#auto.join end
  49. n47=#auto.away off
  50. n48=raw 317:*:{
  51. n49=  if (%away.set == yes) { goto end }
  52. n50=  if ($away == $false) {
  53. n51=    if (%auto-away == Enabled) {
  54. n52=      if ($parm2 != $me) { goto end }
  55. n53=      else {
  56. n54=  if ($parm3 >= %auto.away) { away (Auto Away after %auto.away.min minute(s).) Type /ctcp $me MESSAGE <message> to send a message ( $+ $day $+ / $+ $realtime $+ ) | echo 4  ½(GLiTCH)╗ Auto-Away after %auto.away.min minute(s) | .enable #message.recorder } } } }
  57. n55=  if ($away) { if ($parm3 <= %auto.away) { away | echo 4 ½(GLiTCH)╗ Auto-Away is back | .disable #message.recorder } }
  58. n56=  :end
  59. n57=  halt
  60. n58=}
  61. n59=raw 318:*:{ .disable #auto.away | halt }
  62. n60=raw 301:*:{ halt }
  63. n61=raw 319:*:{ halt }
  64. n62=raw 311:*:{ halt }
  65. n63=raw 312:*:{ halt }
  66. n64=#auto.away end
  67. n65=raw 433:*: {
  68. n66=  .titlebar Glitch Script v3.7 for mIRC5.0, ⌐1997 GLiTCH Studios -- ( $+ Nick : $me $+ ) ( $+ Day : $day $+ ) ( $+ Messages : %messages.total $+ )
  69. n67=}
  70. n68=raw 432 :*:{
  71. n69=  .titlebar Glitch Script v3.7 for mIRC5.0, ⌐1997 GLiTCH Studios -- ( $+ Nick : $me $+ ) ( $+ Day : $day $+ ) ( $+ Messages : %messages.total $+ )
  72. n70=}
  73. n71=#channel.scan off
  74. n72=raw 352:*:{
  75. n73=  if (* isin $parm7) {
  76. n74=    inc %scan.total.ircops 1
  77. n75=  set %scan.copnicks %scan.copnicks $parm6 }
  78. n76=  if (%scan.clones.address [ $+ [ $parm4 ] ] == $null) {
  79. n77=    set %scan.clones.address $+ $parm4 0
  80. n78=  set %scan.clones.nickers $+ $parm4 $parm6 }
  81. n79=  else { 
  82. n80=    inc %scan.total.clones 1
  83. n81=    set %scan.total.clones.address %scan.total.clones.address $parm4
  84. n82=  set %scan.total.clones.nicks %scan.total.clones.nicks $parm6 }
  85. n83=  halt
  86. n84=}
  87. n85=raw 315:*:{
  88. n86=  window @Channel_Scan_For_ $+ %scan.channel 100 100 400 150
  89. n87=  echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ Topic : ( $+ $chan(%scan.channel).topic $+ )
  90. n88=  set %scan.total.users $nopnick(0,$parm2) + $opnick(0,$parm2)
  91. n89=  echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ Total ops : $opnick(0,$parm2) -- Total Nonops : $nopnick(0,$parm2) -- Total : %scan.total.users
  92. n90=  if (%scan.total.ircops == $null) {
  93. n91=  echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ No IRCops Detected }
  94. n92=  else { echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ Total IRCops : %scan.total.ircops $+ ; %scan.copnicks }
  95. n93=  if (%scan.total.bans == $null) {
  96. n94=  echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ No Bans Detected }
  97. n95=  else { echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ Total Bans Detected : %scan.total.bans }
  98. n96=  if (%scan.total.clones == 0) {
  99. n97=  echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ No Clones Detected | goto end }
  100. n98=  else { echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ Total Clones Found : %scan.total.clones    
  101. n99=    set %scan.i 1
  102. n100=    set %scan.hitme $token(0,544,%scan.total.clones.address)
  103. n101=    :start
  104. n102=    set %scan.clones.separate.nick $token(%scan.i,544,%scan.total.clones.nicks)
  105. n103=    set %scan.clones.product %scan.clones.separate.nick at $token(%scan.i,544,%scan.total.clones.address) has clones...
  106. n104=    echo 4 @Channel_Scan_For_ $+ %scan.channel ½(GLiTCH)╗ 1 $+ %scan.clones.product
  107. n105=    if (%scan.i == %scan.hitme) { goto end }
  108. n106=    inc %scan.i 1
  109. n107=    goto start
  110. n108=  }
  111. n109=  :end
  112. n110=  .disable #channel.scan
  113. n111=  unset %scan.*
  114. n112=  halt
  115. n113=}
  116. n114=raw 367:*: {
  117. n115=  inc %scan.total.bans 1
  118. n116=  halt
  119. n117=}
  120. n118=raw 368:*:{ halt }
  121. n119=#channel.scan end
  122. n120=#port.scanner off
  123. n121=raw 211:*:{
  124. n122=  if (%ports.flag == yes) {
  125. n123=    if ($left(4,$right(5,$parm2)) isnum) { set %ports.all %ports.all $left(4,$right(5,$parm2)) }
  126. n124=    set %ports.var $parm5 + $parm7
  127. n125=    %ports.average = %ports.var + %ports.average
  128. n126=    aline @Ports Port : $left(4,$right(5,$parm2)) KBytes Sent/Recvd : %ports.var $+ (the less bytes, the faster port) | inc %total.ports 1
  129. n127=    if (%ports.var < %ports.constant) { set %ports.constant $parm5 + $parm7 | set %ports.best $left(4,$right(5,$parm2)) }
  130. n128=  }
  131. n129=  else {
  132. n130=    if (%ports.vari == 1) { inc %ports.vari | goto end }
  133. n131=    if (%ports.vari == 2) { set %ports.flag yes | set %ports.constant $parm5 + $parm7 }
  134. n132=    :end
  135. n133=    halt
  136. n134=  }
  137. n135=  halt
  138. n136=}
  139. n137=raw 219:*:{
  140. n138=  aline @Ports ----------------------------------------------------------
  141. n139=  aline @Ports Fastest Port : %ports.best
  142. n140=  aline @Ports Total Ports : %total.ports
  143. n141=aline @Ports Current Port : $port
  144. n142=  %ports.average = %ports.average / %total.ports
  145. n143=  aline @Ports Average KBytes Sent/Recvd : %ports.average
  146. n144=  unset %ports.*
  147. n145=  unset %total.ports
  148. n146=  .disable #port.scanner
  149. n147=  halt
  150. n148=}
  151. n149=#port.scanner end
  152.